Set ws = CreateObject("WScript.Shell")
ws.Run "tts.bat", 0